var
	a:array[1..1000] of longint;

procedure sort(i,j:integer);
var
	l,h:integer;
	key:longint;
begin
	if(i<j)then
	begin
		key:=a[i];
		l:=i;
		h:=j;
		while i<j do
		begin
			while (i<j) and (a[j]>=key) do
				dec(j);
			if(i<j) then
			begin
				a[i]:=a[j];
				inc(i);
			end;
			while (i<j) and (a[i]<=key) do
				inc(i);
			if(i<j) then
			begin
				a[j]:=a[i];
				dec(j);
			end;
		end;
		a[i]:=key;
		sort(l,i-1);
		sort(i+1,h);
	end;
end;

var
	i,n:integer;
begin
	n:=0;
	while not eof(input) do
	begin
		inc(n);
		readln(a[n]);
	end;
	sort(1,n);
	for i:=1 to n do
		writeln(a[i]);
end.
